home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Actual 9
/
CDACTUAL9.iso
/
share
/
Dos
/
VARIOS
/
pascal
/
DELPHI.SWG
/
0017_Get a file's date and time stamp.pas
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Pascal/Delphi Source File
|
1996-02-21
|
257 b
|
13 lines
function GetFileDate(TheFileName: string): string;
var
FHandle: integer;
begin
FHandle := FileOpen(TheFileName, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;